100 REM AUTO-'&'-MAKER
110 REM --------------
120 REM
130 REM  03.11.84.  BORIS SCHNEIDER
140 :
150 :
160 REM INITIALISIERUNG
170 INPUT"STARTADRESSE DES &-FILES";SA
180 INPUT"NAME DES &-FILES";NA$
190 IF LEN(NA$)>15 THEN 180NA$
200 OPEN1,8,2,"&"+NA$+",U,W"
210 DIMX(256)
220 PRINT"BITTE GEBEN SIE JETZT IHRE DATEN EIN"
230 PRINT"ABSCHLUSS MIT -1!"
240 :
250 REM DATENEINGABE UND TEST AUF
260 REM UEBERLAUF
270 Y=1
280 INPUTX(Y)
290 IFX(Y)<0THENY=Y-1:GOTO 350
300 PR=PR+X(Y):IFPR>255THEN PR=PR-255
305 Y=Y+1:IFY>254 THEN 350
310 GOTO 280
320 :
330 REM ABSPEICHERN DER VORHANDENEN
340 REM DATEN IN DAS USR-FILE
350 SH=INT(SA/256)
360 SL=SA-256*SH
370 PR=PR+SH+SL+Y
380 PRINT#1,CHR$(SL);CHR$(SH);
390 PRINT#1,CHR$(Y);
400 FORI=1TOY
410 PRINT#1,CHR$(X(I));
420 NEXT
430 PR=PR-(255*INT(PR/256))
440 PRINT#1,CHR$(PR);
450 IF X(Y+1)<0THENGOTO470
460 SA=SA+Y:PR=0:GOTO270
470 CLOSE1